home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Variations / gen-template < prev    next >
Lisp/Scheme  |  1996-12-31  |  549b  |  12 lines
  1. gen-template seed ratio-s ratio-r length
  2.  
  3. This function generates a template which can be used in fill-template operations where rhythmic variation is required.
  4.  
  5. (setq temp1 (gen-template 0.11 3 1 16))
  6. --> (= x x x x x x x x x x x = = x x)
  7.  
  8. (setq rhyx (fill-template temp1 '(a b c d)))
  9. --> (= a b c d a b c d a b c = = d a)
  10.  
  11. The quantity and distribution of these rest symbols are controlled by ratio-s and ratio-r settings. In the example above the ratio is set to control the random operation to have a distribution of 3 symbols to 1 rest symbol.
  12.